   1 .ARCADIAN SAMPLER-A.R.D.
  10 clear ;S=0;J=40;A=17996
  20 for B=1to 8;gosub J+B;%(A)=C;%(A+40)=D;%(A+80)=E;%(A+120)=F;%(A+160)=G;%(A+200)=H;%(A+240)=I;A=A+2;next B
  25 S=S+1
  30 J=50;A=18316;if S=2STOP
  40 goto 20
  41 C=0;D=0;E=170;F=2;G=170;H=130;I=170;return 
  42 C=0;D=0;E=170;F=130;G=128;H=128;I=128;return 
  43 C=0;D=0;E=170;F=130;G=128;H=130;I=170;return 
  44 gosub 41;return 
  45 C=2;D=2;E=170;F=130;G=130;H=130;I=170;return 
  46 C=32;D=0;E=32;F=32;G=32;H=32;I=32;return 
  47 gosub 41;return 
  48 C=0;D=0;E=170;F=130;G=130;H=130;I=130;return 
  51 C=0;D=0;E=44;F=130;G=42;H=130;I=170;return 
  52 C=0;D=0;E=44;F=130;G=128;H=128;I=128;return 
  53 C=0;D=0;E=44;F=130;G=128;H=130;I=44;return 
  54 gosub 51;return 
  55 C=2;D=2;E=42;F=130;G=130;H=130;I=42;return 
  56 C=32;D=0;E=32;F=32;G=32;H=32;I=32;return 
  57 gosub 51;return 
  58 C=0;D=0;E=136;F=162;G=130;H=130;I=130;return 
:return ;TV=13;run 
>